(include-book "../src/acl2/command-parser")
(include-book "../src/acl2/grid")
(include-book "../src/acl2/rule-creator")
(set-state-ok t)

(defun generate-trivial-world (framerate)
    (cell-world (empty-lifelike-grid)
                 (generate-lifelike-rules* nil nil)
                framerate nil nil))

(defun calc-cc (chrs)
   (let* ((params (packets *param-sep* chrs))
 		(x (chrs->rat (cadr params)))
	   	(y (chrs->rat (caddr params)))
   	   	(val (chrs->bool (cadddr params))))
        		(list x y val)))

(defun test-simple-commands (state)
	(let* ((wld (set-world-grid (generate-trivial-world 16)
                              (empty-lifelike-grid))))
		(read-command-file "simple-commands.txt" wld state)))